home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 19 / madtrb11.zip / ERASE.PAS < prev    next >
Pascal/Delphi Source File  |  1985-07-13  |  593b  |  21 lines
  1. PROGRAM ERASE;
  2.  
  3. {
  4. Utility program to erase a file while never leaving Turbo Pascal.
  5.  
  6. Source: "Four Lifesaving Utilities for CP/M", TUG Lines Volume I Issue 4
  7. Author: Kirby Pressly/2011 Willowbend/Wharton, TX 77448/
  8. Application: CP/M-80 (can also be used with PC-DOS, MS-DOS)
  9. }
  10.    VAR
  11.     FILVAR:         TEXT;
  12.     FILENAME: STRING[14];
  13.      BEGIN  CLRSCR;
  14.        WRITE('ENTER DRIVE:FILENAME.EXTENT TO ERASE >>=> ');
  15.        READLN(FILENAME);
  16.        ASSIGN(FILVAR,FILENAME);
  17.        CLOSE(FILVAR);
  18.        ERASE(FILVAR);
  19.        WRITELN('OK ',FILENAME,' IS GONE !');
  20.      END.
  21.